//	COPYRIGHT (C) 1980 BY BOARD OF TRUSTEES,
//	LELAND STANFORD JUNIOR UNIVERSITY

LET GETISBRANGES(NPROMPT,DEFAULTMIN,DEFAULTMAX) BE
 $( STATIC $( NRANGES = NIL; WHICHTYPE = NIL $);
 FOR I=1 TO NTYPES DO $( TYPEISBMIN!I:=DEFAULTMIN; TYPEISBMAX!I:=DEFAULTMAX $);
 OUTSIF(NPROMPT);
 NRANGES:=INNO();
 WHILE NRANGES>0 DO
  $(
  NRANGES:=NRANGES-1;
  OUTSIF("TYPE, ISB MIN AND ISB MAX:");
  WHICHTYPE:=FINDTYPE(INS());
  TYPEISBMIN!WHICHTYPE:=INNO();
  TYPEISBMAX!WHICHTYPE:=INNO()
  $)
 $);

